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We vervolgen de reeks artikelen over 
trische functies, 


Voor diegenen die al vertrouwd zijn 
met de goniometrie misschien een 
afgezaagd verhaal, maar voor de 
anderen toch prettig dat er eens 
aandacht besteed wordt aan iets wat 
anders alleen na een inspannende 
zelfstudie is te bevatten. 


Om tot een goed begrip te komen is 
het wellicht het beste te beginnen 
met de goniometrische verhoudingen. 
We bekijken daartoe een rechthoekige 
driehoek met haekpunten A, В en C. 


complicatie 


Voor onze belgische lezers treedt nu 
al een complicatie op. 


In Nederland is het gebruikelijk in 
de meetkunde om punten met hoofdlet- 
ters aan te geven en lijnen met klei- 
ne letters. Lijnstukken geven we aan 
met begin- en eindpunt еп tot slot 
hoeken op een van de drie volgende 
manieren : | 

- griekse kleine letter 

- hoekteken gevolgd door het hoekpunt 
~ hoekteken gevolgd door drie punten, 
het middelste punt is dan het hoek~ 
punt van de bedoelde hoek en in com- 
binatie met de andere twee punten 
levert het hoekpunt de twee lijnstuk- 
ken die de benen van de hoek vormen. 


In Belgie echter geeft men juist 
punten met kleine letters aan en de 
lijnen met hoofdletters, 

Ondanks dat ik wiskundig de belgische 
methode prefereer; hij is namelijk 
consistent met de verzamelingstheorie 
ga ik tach verder met de nederlandse 
notatie. Ik ben namelijk bang ergens 
een vergising te maken en dan is het 
voor beide groepen onduidelijk. 


Het hoekteken zal ik met / aangeven 
en er dan later nog een lijntje onder 
zetten zodat het Z wordt, 

Mocht ik dit per ongelijk ergens ver- 
geten kunt u na deze uitleg weten dat 
het hoek betekent, 


` Programmeertechnieken 


Goniametrische 
Wer cdi rig ern 


We bekijken de onderstaande recht- 
hoekige driehoek ARC, Zoals U ziet 
zit de rechte hoek bij B. 


С 


а B 


Deze driehoek bestaat uit twee recht- 
hoekszijden (ñB en BC) en een schuine 
zijde (АС): de laatste wordt ack wel 
hypathenusa genoemd. 


In deze driehoek zijn nu de volgende 
zes verhoudingen aan te geven: 


AE AB AC AC BC в 
AC LC ЕС АВ АС еп АВ 


Vrij eenvoudig is іп te zien dat de 
groottes van deze verhoudingen niet 
afhangen van de lengtes zelf maar van 
de vorm van de driehoek. Deze wordt 
bepaald door de grootte van de 

hoeken van de driehoek. Vandaar gonio 
in goniometrie dat uit het grieks 
kamt en hoek betekent. 

Al deze zes verhoudingen hebben in de 
wiskunde een naam gekregen maar die 
wordt meestal opgegeven in algemene 
termen. We spreken over overstaande 
en aanliggende rechthoekszijde van 
een van de scherpe hoeken en van de 
schuine zijde . 


Met rechthoekszijde wordt de zijde 
bij de rechte hoek bedoeld, in onze 
tekening is dat dus zijde AB of BC. 
Met aanliggend geven we aan dat het 
hoekpunt van de hoek waaraan we de 
verhouding kappellen ор bedoelde 
zijde ligt. 

Ten opzichte van ZA is dat zijde AB. 
Ві) overstaand ligt dat hoekpunt er 
juist niet op. 

Ten opzichte van ZA is dat zijde BC, 








ЕИЗ вз-эо оба 


definities 
We krijgen го de volgende definities. 


overstaande гесһЕһсекегі 1ძC 


sinus асаан ако анан ні ees 
echuine zijde 

aanliggende rechthoekszijde 

cosinus Ши нан а чн пн и о п и на анонс н атн а паи тн тт 
schuine zijde 

overstaande rechthaekszi jde 

tan gens m. meee есе tan ta ком сн не а шин өне жен кен кеі кен жен та An еме не 


aanliggende rechthoekszijde 


aanliggende rechthoekszijde 
COE გიფ 61 т нет nn nava en rn een 
overstaande rechthoekszijde 


schuine zijde 
весапв ш--------------------------- 
aanliggende rechthoekszijde 


schuine zijde 


совесапв ш--------------------------- 


overstaande rechthoekszijde 


Vaar (А uit onze driehoek wordt dit : 


ЕС ac 

SIN(ZA) = ---- COSEC(LA)= ---- 
AC БС 

АВ АС 

COS(ZA) = ---- SEC(ZA) = ---- 
AC AB 

3 ‘EC АВ 

TAN( LA) = ——— COTG (LA) = ---- 
AR ЕС 


We gebruiken normaal alleen de sinus, 
de cosinus en de tangens omdat we de 
andere drie gemakkelijk kunnen vinden 
door de reciproke van de geschikte 
verhouding te nemen: 


b.v. COSEC (LA) = --------- 
DIN ZA) 


Analoog voor cotangens met tangens еп 
secans met cosinus. 

Qok in onze DAI zit alleen de SIN, de 
COS еп de TAN maar mocht u ooit eens 
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de behoefte gevoelen tot het gebruik 
van een der anderen kent u nu het 
recept ervaar. 

De hypotenusa (schuine zijde) is in 
de rechthoekige driehoek vanzelfspre- 
kend de langste van de drie zijden. 


Tegenover de grootste hoek ligt 
altijd de langste zijde. Het is nu 
eenvoudig in te zien dat de SIN en de 
COS waarden zullen opleveren tussen 0 
en i. Met een beetje fantasie kunnen 
we ons ook nog voorstellen dat de 
grenswaarden @ en 1 zelf gehaald kun- 
nen worden. 


Rij 51М(0) stellen we ons dan een 
driehoek ӨВС voor met ZB recht еп 
бей, dit betekent dat zijde ñE en 
zijde AC baven op elkaar liggen en 
zijde BC lengte nul heeft. Voor de 
rechte hoek A een analoge fantasie, 


doordenken 


We willen echter graag de goniometri- 
sche verhoudingen oak voor hoeken die 
stomp (meer dan recht) zijn kunnen 
definieren. 

We willen dit graag omdat er vele 
regels blijken te bestaan die niet 
alleen opgaan in rechthoekige drie- 
hoeken maar соқ in andere. 

Een voorbeeld van 20'п regel is de 
zogenaamde sinusregel: 


sinusregel 
In elke driehoek geldt : 


SIN(ZA) SIN(ZE) GIN (АС) 


Some zien we deze regel op zijn Кор 
staan dat wil zeggen de zijden boven 
en de sinussen ( sini ? ) onder de 
breukstreep . Dat is dan net zo juist 
als de hierbovenstaande regel. 


In stomphoekige driehoeken kunnen we 
met deze sinusregel de sinussen bepa- 
len van stompe hoeken. 


Maar we willen nag verder gaan en aan 
elke hoek een sinuswaarde koppelen еп 
vanzelfsprekend een die niet strijdig 
is met de reeds gemaakte afspraken, 
We gaan dit doen met behulp van de 
eenheidscirkel. 
































Fa ye Еп га ға. 


In het begin van de goniometriestudie 
worden hoeken bijna altijd gemeten in 
qraden. De kleinste hoek is 0 graden 
еп een rechte hoek is 99 graden, een 
zogenaamde gestrekte hoek (benen in 
elkaars verlengde) is 109 graden en 
een keer helemaal rond is 569 graden. 
Wiskundig is er его veel voor deze 
maatverdeling te zeggen. Het getal 
560 kan namelijk door vreselijk veel 
andere getallen gedeeld worden. Delen 
door 1,2,5,4,5,6 levert geen breuken 
op en ook daarboven zijn nog zeer 
vele delers te vinden. Het betekent 
dat er voor de "погтаје" driehoeken 
veelal hoeken gevonden worden waarbij 
we geen breuk hoeven te krijgen. 

Onze voorouders hadden het nog niet 
zü slecht bekeken met een dozijn 
eieren, zestig minuten in een uur en 
24 uren per dag. 


radial en 


Er zijn echter am andere wiskundige 
redenen оок argumenten om niet een 
verdeling in graden te maken. 

Er zijn twee andere verdelingen : 


I-verdeling in GRAD's waarvan er 108 
in een rechte hoek zitten.Deze yer~ 
deling wardt vooral gebruikt bij 
bepaalde technische toepassingen. 

2-verdeling in radialen. | 


Rij de DAI moeten hoeken worden opge- 
geven іп radialen, 

Maar wat zijn radialen nu precies > 
Ik kan me er gemakkelijk vanaf maken 
door te stellen dat 1 radiaal gelijk 
is aan ongeveer 37,2958 graden. Er 
zullen er onder de lezers zijn die nu 
denken “wat is het een gek getal!’ of 
‘waarom ongeveer 27, Laten we voorop 
stellen dat beide maten onafhankelijk 
zijn in de zin dat niet de een van de 
ander is afgeleid. Vandaar dat de 
ondelinge verhouding nogal vreemd 15. 
We zouden ook kunnen zeggen dat een 
graad gelijk is aan ongeveer 9.017453 
radiaal. We zagen al hoe we aan de 
graden kwamen. (eenmaal rond is 560) 
De 368 is arbitraal zij het gelukkig 
gekozen, Een radiaal vinden we doar 
een zodanig segment uit een cirkel te 
nemen dat de boog precies evenlang is 
als de straal van de cirkel. De hoek 
van deze taartpunt is dan 1 radiaal. 
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Als u bedenkt dat voor straal ook wel 
het woord radius wordt qebruikt kunt 
ude term radiaal plaatsen. 

Wat is nu het grote voordeel van 
radialen boven graden, Heel simpel de 
sinus e.d, van een hoek uitgedrukt in 
radialen kan warden berekend, 


Een bekende reeksontwikkeling is b,v. 


3 5 7 9 
X X X x 

BIN (Éis — --- Ф e ---- ж --- Зур. 
St а 27, 9» 


waarmee de sinus van X is te bepalen. 
МЕ. S! = 1 x 2x Bx 4 х Š 


De bovenstaande formule is alleen 
geldig als X wordt uitgedrukt in де 
reeds eerder genoemde radialen. 


Aangezien de termen in deze reeks na 
de eerste zaveel steeds kleiner ного 
den kan men stellen dat als alleen de 
eerste vijf termen uit de reeks bere- 
kent worden men al een vrij nauwkeu- 
rige waarde voor de sinus heeft, 

Dit laatste geldt destemeer als X een 
kleine waarde heeft. 

Maar hoeveel radialen is ееп slag 
rand nu ? Dat is natuurlijk (denk aan 
de definitie van radiaal) net zoveel 
als de omtrek van een cirkel meer is 
dan de straal van die cirkel. 

Dit is 6,28... ofwel 2 PI (m), 

Vaar de komende definitie van sinus 
e.d. maken we hiervan gebruik. 


uitbreiding 
definitie 


Bij de oorspronkelijke definitie van 
sinus e.d. maakten we gebruik van een 
rechthoekige driehoek van willekeuri- 
ge grootte. Als we echter de schuine 
zijde precies 1 lang maken is SIN(/ñ) 
gelijk aan de lengte van BC. 

We zouden op deze manier een redelijk 
nauwkeurige tabel voor de sinus kun- 
nen maken als we AC tamelijk groot 
nemen bav. і meter, De lengte van ЕС 
is dan zeker op millimeters nauwkeu- 
rig af te lezen en de sinus van de 
betrokken hoek dus op drie cijfers 
achter de komma bekend. 

We gaan die gedachte eens verder uit- 
werken., De draaiende beweging van АС 
om punt A waarbij BC de grootte van 

















Пе bij die hoek behorende sinus aanv 
geeft те intrigrerend. Lengte van ЕС 
is de afstand van С tat de horizonta- 
је lijn door A (of evt, AR). 

Deze definitie is voor scherpe hoeken 
dezelfde als voorheen. Nok de hoek 9 
еп de rechte hoek kloppen met ons іп 
tuitief idee hierover. Maar nu zijn 
aak de sinussen van hoeken boven de 
90 graden bekend, Sterker er 15 open 
enkele limiet meer aan de definitie, 
Gak de sinus van 770 graden varmt 
geen probleem meer als we bij 0 star- 
ten еп tweemaal ronddraaien (2 x 260) 
en dan под 59 graden, 

In deze vorm is het duidelijk te zien 
dat de sinus 20 graden gelijk is aan 
de sinus van 770 graden. 


eemhieidscirkel 
In de onderstaande cirkel (straal=1) 


kunnen we duidelijk de drie hoofdver- 
houdingen uit de goniometrie zien. 





In het kart gezegd komt het er ap 
neer dat punt C langs de cirkelrand 
ronddraait en de afstand van C tat de 
horizontale lijn de sinus aangeeft. 
De совілие is dan de afstand tot de 
vertikale lijn еп de tangens zien we 
ор vertikale raaklijn aan de cirkel. 


Gaan we de gevonden Sinuswaarden op 
een grafiek afzetten krijgen we een 
golvende curve te zien. (sinus bete- 
kent сок golf) Ook de cosinus is een 
soortgelijke golf} in feite is het 
dezelfde golf die alleen op een ander 
punt start. Dit laatste is in de 
cirkel eenvoudig te zien maar сок in 
de oorspronkelijk driehoek zien we 
dat SIN(/A) = COS(/C) ёл omgekeerd, 
De "со" van cosinus іє een afkorting 
van complements; en twee hoeken die 
samen recht zijn zijn elkaars comple- 








ment, vandaar ! 


De DAI gebruikt bij de berekening van 
de sinus ook zo'n reeksontwikkeling. 
U begrijpt dat de uitkomsten onbe- 
truuwbaarder worden naarmate het ar- 
gument grater wordt. 

бЇМ(ШӨӨӨӨӨЖРТ) zou 9 moeten zijn maar 
levert bijna 798,1 . 

Er is hier echter nog een probleem. 
De waarde van PI die standaard in de 
DAT zit is ееп afgeronde waarde wordt 
die dan met een benadering (omzetting 
naar binair) van 200000 vermenigvul- 
digd kan de gecombineerde fout vrij 
graat warden, Heel extreem is dan ook 
SIN(2°2@#PT) dat Q zou moeten zijn. 
Tik in en verbaas u en bedenk daarbij 
dat 2220 volkomen exact is іп de DAT. 


Ik meende ooit een oplossing voor dit 
probleem te hebben іп de wiskundig 
correcte verkleining van het argument 
daor hem MOD 2#PI te nemen. De reken- 
snelheid ging met deze methode ook 
enorm omhoog. Later realiseerde ik me 
echter dat de MOD een integerfunctie 
is en dat mijn argumenten modula zes 
genomen werden in plaats van de ge- 
wenste modulo twee FI, 
Ik dacht hieraan eventueel nog te 
ontkomen op de volgende manier: 

1 - deel argument door РІ 


ғ 


2 ~ neem het vervolgens MOD 2 

З з vermenigvuldig met FI 

Dit gaat ook fout door de integer MOD 
vervang 2 door verminder met het 
grootste even getal onder de waarde 
uit 1. ( A#A-INTIA/2,@) ха) 

Dit werkt wel maar 15 te traag от 
zoden aan de dijk te zetten, 

De totale verkleining ineens werkt 
vlotter maar nog niet vlot genoeg. 
B=2&PIESIN(A-INTLA/E)#E) іру ЗІМА) 


Maar al zou het vlot genoeg werken 
bedenk wel dat de uitkomsten op zijn 
minst onnauwkeurig zijn. 

Gebruik de goniometrische functies 
dus посії met grote waarden. Wat voor 
u groot is hangt af van de gewenste 
betrouwbaarheid, maar ik zou zeggen 
neem als regel nooit een argument 
groter dan duizend, 


Met deze laatste tip stop ik dit 
artikel maar ik ga er de volgende 
keer met dit onderwerp verder. 


Frank H. Druijff 
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13зг18345154-МАЯ sb nev nspnsrdnl 9645 - 0665 
iyriad3eləpaiqa ni пп! ла па рпічјг поза! п! 88482 - 880% 


88811 - 88881 
88851 - 88811! 


133138 ївраїдг пі 159516 (©) Івьалой 
«інілізгізреіде ni 389451316-211531 
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iisps1 33q esitizoq Isjnss 180 sen Пог! Звпо 06 вттелрозд 180 Зрввту 

198 гї esttieog 161056 jad apen рьвлу ab tid зблвви? ив 91 - 
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LioM 19389 


1968 НЕМ ---------------------------------------------------------- ----- 
1019 КЕМ subroutine ву 
1928 REM . *spiegelen op epson’ (БХ-89!) 


1030 REM 12 maart 1985 : versie F.i 

1040 REM pnoij 

1896 КЕМ --------------------------------------------------------------- 
2080 POKE #131, 1:PRINT СНЕФ (12): СОГОКТ 9 14 9 9 

2010 CURSOR 25,18:PRINT “pnoij" 

2029 CURSOR 12,14:PRINT ""'"spieqelschrift op mijn ЕХ-8Ө 17?" 

2950 CURSOR 11,12:PRINT “staat de printer klaar ? space"; 

2198 IF GETC<>32 GOTO 2109 

2119 PRINT СНЕФ(12):01ЕАН 2000:0IM ST$(10):RESTDRE 

2120 POKE #131,9:CURSOR 15,15:PRINT CHR$ (27) 5 "A" 5 CHRS (1) 5 CHRS (0) 

2130 CURSOR 15,15: PRINT СНН5(27)5":":5СНКФ(0)5СНН5(0) :СНН5 (035 :РОКЕ 4151,1 
2508 READ X$:IF X$="stop" GOTO 3909 

2519 CURSOR 15,15:РБІМТ X$;:PDKE #131,@:PRINT CHR$ (273; "&" CHR$ ОО) 5 

2520 READ X:PRINT CHR$(X);CHR$(X);:FOR J=1 TO 13:READ X:PRINT CHR$(X) 1 2 NEXT 
2559 POKE #131,1:G0TO 2500 
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2998 
5000 
5169 
3116 
5120 
5150 
5140 
5159 
3169 
3176 
3188 
5178 
3209 
3219 
5220 
3239 
5240 


Вэ 
525 


5590 
5519 
5529 
5528 
3340 
5550 
5409 
3419 
5420 
3450 
3440 
5458 
5460 
5478 
3489 
5498 
5500 
3518 
5529 
5530 
5540 
3559 
3580 


5600 
3658 
570% 
5719 
3720 
5730 
5740 


TTE, 
17.“ 


5780 
3779 
3890 
3850 
3860 
2879 
3880 
3899 
5900 
5919 


REM З ------------------------------- 
SP=B9 
PRINT CHR$(12) 


CURSOR 1¢6,22:PRINT " Ө. standaarschrift : "357% (0) 
CURSOR 19,21:РНІМТ " 1. italic : PST) 
CURSOR 10, 28: РАТНТ " 2. emphasized ` : "3574 (2) 
CURSOR 1@,19:PRINT " 2. double strike : 151805) 
CURSOR 10,18:РНЇМТ " 4. elite : "#1574(4) 
CURSOR 19,17:РЕТМТ " 5. superscript : "{5Т%(5) 
CURSOR 19,16:РНІМТ " 6. subscript : ":515(6) 
CURSOR 19,15:PRINT " 7. enlarged : "SST8(7) 
CURSOR 1@,14:PRINT " 8. proportional 20 "SST#(8} 
CURSOR 10,13:PRINT " 9. underlined : "5619 (9) 
CURSOR 10,12:РНЇМТ "19. condensed : "3 ST#(19) 
CURSOR 1@,1@:PRINT "11. posities рег regel : "SP 


CURSOR 19,В:РКІМТ "12. defaultinstelling" 

CURSOR 19,6: РЕШТ "15. printen" 

CURSOR 18,4:PRINT "14. einde sessie" 

CURSOR 10,2:РНЇМТ ЗРС (49); : СИКЗОК 16,2:PRINT "J E KEUZE"; 
AS="":G0SUB 5890: IF LEN(A$)=@ THEN A$="15" 

X=VAL (At): ТЕ Х<0 OR Х>14 GOTO 5500 

J=9:FDR I=9 ТО 10: 1F X=I AND LEN(ST$(1I))>@ THEN 518(1) -"":4-1 
NEXT:IF X=5 OR Х-6 ОК X=7 OR X=19 THEN IF Ј=1 THEN Ј=0:Х=11 
IF J=1 GOTO 5199 

IF THEN ST$(@)=CHRS(27)4+"P" 

IF THEN 57% (1) =СНЕФ (27) +"4" 

THEN 57% (2) =СНЕФ (27 + "Е" 

THEN 574 (5) =СНЕФ (27 + "6" 

THEN ST$ (4) =CHR$ (27) +"М" 

THEN ST$(5) =CHRS (27) + "58": X=11 

THEN 57% (5) =CHRS$(27)4+"S1": X=11 

THEN ST$(7}=CHRS (27) +" 1": X=11 

THEN ST$(8)=CHR%(27)+"p1" 

THEN ST$(9)}=CHRS (27)+"—1" 

IF Х-10 THEN 5714 (10) =0Н6% (27) +СНЕ (15) : Х=11 

IF X=11 THEN CURSOR 55,2:4$="":GOSUB 5808: ТР LEN(A$)=0 THEN A$="8@" 
IF Х-11 THEN SP=VAL (AS): ТЕ 5021 GOTO 3510 

F X=12 THEN БОСОВ 5690 

IF Х=15 THEN GOSUB 3700:5050В 4@@¢:G0TO 5190 

IF X=14 THEN PRINT СНЕФ (12); : STOP 

GOTO 3190 


H H H I I H II 
о CO d D KR Ol МО н დ 


еч 
п 
>< мо» x< D >< De x< + x< 


· POKE #131,0:GOSUB 5700:РОКЕ #131,1:FOR 1-0 ТО 10:ST$(II)="";NEXT:SP=80 


RETURN 
POKE #131,9 
CURSOR @,23:PRINT CHR$ (27) "5 CHRS(27)5 "Е"; 
CURSOR 8,23:РКІМТ CHR$ (27) § "H"5CHRS(27)5"P"5 
CURSOR @,23: PRINT СНЕФ (27) 5 "Т" CHRS (27) "WO"; 
CURSOR 2,235: РАШТ CHRS(27)5 "ре"; 
CURSOR 9,23:РКІМТ CHR$ (27); "-@";CHRS(18)5 
РОКЕ #131,1 
RETURN 

AS=""SPRINT " : "j 

=GETC:IF M=13 THEN RETURN 

IF М-В AND LEN(A$)=6 GOTO 5850 

IF М-8 THEN AS=LEFTS (At, (ЕМ(АФ)—1) :6070 5900 
IF LEN(A$)>3 OR М<48 OR M257 GOTO 5850 
AS=AS+CHRS (M) 

PRINT СНЕФ (М); 

БОТО 3850 


266 ричаг kk. =s = x 





5992 НЕМ ლ 32 ee кы шы бш თამი шш ш шыш ა ფა A EN ш ша мы ш ე 
4000 Y=28:PRINT СНЕФ (12): " afsluiten door “stop’ in te brengen" 
4019 POKE #131,@:FOR 1-0 TD 19:РВІМТ 57401): :МЕХТ:РОКЕ 4131,1 

4058 ñ*$="";CURSDR 9,Ү 

4199 M=GETC: IF M=@ БОТО 4100 

4110 IF М=15 GOTO 4300 

4120 IF М-8 AND LEN(A$}>@ THEN AS=LEFTS (AS, LEN (A$) —1} 

4130 IF LEN(ñ$)=SP бОТО 4100 

4149 IF М<>28 THEN АФ-АФФСННФБ(М) 

4159 PRINT CHR$(M)3:GOTO 4199 

4590 IF A$="stop" THEN BDSUB 4500: БЕТИВМ 

4510 РОКЕ #151,9: ТЕ LEN(A$)=8 GOTO 4500 

4320 BS=SPC (SP-LEN (A$) } 

4559 IF LEN(B$)>@ THEN CURSOR 0,23:РЕТМТ CHR$(27)3"-@";:GOSUB 4708 
4540 CURSOR @,2Z:PRINT ST$(9)53:BS$=A$:GOSUB 4700 

4529 PRINT :РПКЕ #131,1:Y=Y-2:IF Y=@ GOTO лова 

4516 GOTO 4050 

4500 CURSOR @,@:INPUT "bladsprong {J} "АФ 

4612 IF A$="J" OR Af="j" THEN POKE #151,9:PRINT CHRÉ(12);:POKE #131,1 
4520 RETURN 

4700 FOR I=LEN(B$)-1 ТО @ STEP -1:CuRSOR @,23:PRINT MID$(B$,I, 11; :NEXT 
4718 RETURN 





ღუღგჟყღუეუე>–<_“ბოოობიეი”“წ”ზრ”'””"'”ჩ ი” 


19010 DATA "жж ! жж", 55,159, 0, 0, 9, о, 0,242, 9, 9, 9, о, о, о 
10020 DATA "xx жж", 34,159, Ө, 0, 0,224, 0, 9, 9,224, 9, ө, 9, 9 
10050 DATA "XX # ж", 35,139, 0, 40, 0,254, B, 40, 0,254, 0, 46, е, 9 
19949 DATA “жж $ жк", 55,159, 0, 72, 0, 84, 8,254, 0, 84, 0, 40, o ө 
10050 DATA "жж X жж", 37,139, 9, 6,128, 70, 52, 16, 8,198, 2,192; де 
10060 DATA “жж % жж", 58,139, 9, 18, 8, 4, 9, 74,160, 18,160, 78, 9, 9 
19070 DATA "жж? жж", 59,159, 0, 0, 9, 0,128, 64, 9, 9, в, о, о, 9 
19980 DATA “жж ( жж", 40,139, 0, 0, 0,130, 48, 56, 6, 6, 9, о, 9, 9 
10070 DATA "жж ) ж", 41,139, 0, 0, 0, 9, 9, 56, 88,150, 0, 9, е, 9 
19100 DATA "жж ж жж", 42,159, 0, 18, 0, 84, 40, 16, 40, 84, 6, 16, 9, 9 
10119 DATA "жж + ax", 45,159, 0, 16, Ө, 16, 0,125, 9, 16, 0, 16, 0, ө 
19120 მიიჩ ES y PRN 44, 11, 9. 90, 0, 9, 4, 4. 18, бр 9, в. 6. З 
10150 DATA "XX - жж", 45,139, Ө, 16, 0, 16, 9, 16, 9, 16, 9, 16, о, 0 
10140. DATA "яж. жж", 48,139, 0, 0, Ө, 0, 9, 6, 9, 6, 9, 0, ө, ө 
19159 DATA "жж / жж", 47,139, 0, 0,128, 64, 32, 16, B, 4, 2, 1, е, е 
19160 DATA "жж Ө жж", 48,139, 0, 56, 68, 0,130, 0,130, 9, 68, 58, 9, 0 
19179 DATA "жж 1 жи", 49,139, 0, 0, Ө, 2, 9,254, @ 2, 6, 0, 0, 9 
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19189 
16198 
19299 
19210 
1822 

10250 
10249 
10250 
19269 
19270 
10280 
10290 
19399 
19519 
19520 
16330 
10548 
16359 
19569 
16578 
19580 
12298 
19490 
16419 
19420 
109450 
10440 
10450 
10460 
10470 
10480 
10490 
19590 
19519 
16520 
10539 
19540 
10550 
10569 
10570 
19589 
18590 
19699 
16610 
10520 
19650 
19640 
19650 
19660 
19678 
19689 
10690 
10799 
10710 
10729 
19750 
19740 
10750 
10769 
19770 


DATA 
BATA 
BATA 
DATA 
BATA 
DATA 
DATA 
BATA 
BATA 
DATA 
BATA 
DATA 
BATA 
BATA 
BATA 
DATA 
DATA 
DATA 
BATA 
рата 
BATA 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
DATA 
DATA 
DATA 
DATA 
BATA 
BATA 
DATA 
рата 
BATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
рата 
вата 
рата 
рата 
рата 
рата 
DATA 
DATA 
DATA 


"хи 
WT 
"++ 
WT? 
WI? 
WT 
WI 
иж 
"х 
WT 
WS 
"жж 
"ки 
ч ++ 
"++ 
Di Ht 
"XX 
D жы 
"ха 
нЕ 
н хы 
"жж 
HASS 
"хи 
WE 
"зж 
URE 
"иж 
ы >> 
н ++ 
"хэр 
ч» 
"хэр 
n HH 
“ БЭЭ 
"EE 
п KE 
"уз 
их» 
“ж 
их 
WS 
" +E 
"EE 
" х+ 
"хи 
"иж 
"хэ 
"х 
"у 
Wë 
иж 
"XX 
"х. 
" RE 
иж 


"4# j 
с зне", 107,139, 


" +» 
"4# 
н ++ 


A se Ноје ч” ws CO rd DU GM 


эз. Sé g. < CANDO 70 O Z zz r” z< ca =a T G n тло 


a 
b 
c 
d 
e 
f 
g 
h 
i 
3 
К 
1 
т 


жы", 
ж", 
AR М. 

жк", 

++", 

жж", 
же", 
жж", 
++", 
++", 
к=", 
жж", 

жы", 

жк", 

++", 

же", 
жұ", 
жж", 
жұ", 
#3 н , 
ж u $ 
XX". 

жи", 

жу", 

HE " š 
жж", 
ж", 
жы", 
+ и р 
ж", 
хы", 
жж", 
++" 1 
жы", 
++", 
за" A 
He", 
He", 
жж", 
жн", 
EE " š 
ee" 
же", 
ж", 
ж", 
ж", 
HE " 3 
ха", 
ж", 
жж", 


50,159, 
51,159, 
зе КЕЗ?» 
21 
55, 129, 
55, 139, 
57,129, 
58,139, 
59, 11, 
60,139, 
61,129, 
&2, 139 
43,139, 
64,139, 
65,139, 
56,139, 
87,139, 
48,179, 
69,129, 
78,139, 
71,139, 
72,159, 
73, 139, 
74,139, 
75,139, 
75,139, 
77,139, 
78, 139, 
79,159, 
89,139, 
1,139, 
82,159, 
895,159, 
84,159, 
85,159, 
84, 139, 
87,139, 
вв, 139, 
89,139, 
90,139, 
91,139, 
92,159, 
95,159, 
94,139, 
95, 11, 
96,139, 
97,139, 
98,139, 
99,139, 


xx" 100,139, 
xx" 101,139, 


X#",102, 
за", 103, 


139, 
11, 


жж",104,159, 


і ##",105, 129, 


за", 106,139, 


ann, 108, 139, 
XX", 109,139, 


SPIEGELSCHRIFT ЕХ-НӘ 


9,149, 


ә, 


9,156, 


е, 


e, 128, 


98,128, 18, 
2,212, 
9,254, 
2,160, 

18, 9, 

64,169, 


8. 


12, 


9,198,145, 9, 


9,159, 


9, 


=» 
6,254, 
9,254, 


96,144, 8, 
9, г, 
9, 9, 
9,139, 
9, 49, 
15. е, 
96,128, 16, 
9,179, 
52, 72, 
. 18,158, 
88,159, 8, 
58, 139, 
2,145, 
@, 144, 
92.150, 15, 
9, 15, 
9, 158, 
9, 128, 124, 
9, 68, 
2. @ 2, 
9, 44, 
9, 4, 


9,124,159, 9, 


9, 


96, 9,144, 


9,122,128, 4, 


9, 
9, 


9,128, 
9,252, 
9,224, 
9,252, 


9, 


9,128, 44, 


рээ. 


а а а са 


SEEEEEEEEEEE 


98, 4,152, 
76,144, 9, 
9,128, 
2, 9, 
16, 8, 
2, а, 
9,130, 48, 
32, 
6,139, 44, 
9,159, 
2, 4, 
9,254, 
ө, 44, 
12. “iy 
9, е, 
2. 28, 22, 
28, 34, 
е, 34, 
9,254, 
24, 54, 


ess 2 ламлљс зз-зо 


128, 10,128, 
9,162, 
9,136, 
2,160, 

18, 128, 82, 
16, 158, 

146, 9,148, 

148, 
9, 


64, 


9,119, 9,199, 


9, 
2 


к. 


88, 
40, 
де, 9, 58, 
128, 19,128, 
9,179, 
128, 8,128, 
15,139, 
159, 9,129, 
9,156, 
9,146, 
9,144, 
150, 16,139, 
е, 16, 9, 
8,254, 
150, 9,159, 
9, 49, 9, 
9, => 9, 
52, 16, 32, 
8, 16, 32, 
150, 9,139, 
9,144, 
150, 8,139, 
9,144, 
146, 0,146, 
9,254, 
9, 2, 
4, 2, 4, 
48, 8, 
16, 49, 
16, 14, 16, 
162, 16,138, 
9,159, 
8, 16, 22, 
9,150, 
9,128, 9, 
1. ki Ay 
e, 84,128, 
19, 32, 10, 
9, 34, 6, 
34, 34, 
34, 34, 
34, 34, 
@,144, 124, 
58, 1, 68, 
9, 
2, 
1, 32, 1 
20, 9, 
2. 9 


32, 


49, 


9,159, 
2,168, 


4,138, 


18, 130, а8, 


0,150, 


9,144, 
9,144, 


9,128, 


9,234, 


9,150, 9, 


8,128, 65, 
40, 16, 8, 
2,228, 
18, 12, 
6,128, 
9,146,198, 
9,144, 96, 


52, 


72, 32, 30, 


16,130,124, 138, 


9,159,124, 


e, 130,124, 130, 
9,146, 
9,144, 


9,254, 
9,254, 
9,159,124, 
18, 0,254, 
9, 9, 
о, 2, 12, 
18, 9,254, 
2, 9,254, 
64, 9,254, 
64, 0,254, 
9,139,124, 
9,254, 
9,130,124, 
9,254, 
9,146,109, 
9,128, 
2, 252 
18,224, 
4, 2,252, 
88,159, 9, 
32, 64,128, 
4,139, 
9, 
64, 128, 


9, 
8, 


9, 


64, 


@,132, 


- 
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- 
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19782 
19790 
10800 
19810 
19820 
10830 
19840 
19850 
19860 
19870 
19880 
10890 
19900 
10910 
19920 
10930 
19946 
19950 


11000 
11010 
11920 
11950 
11848 
11930 
11950 
11970 
11989 
11090 
11100 
11110 
11129 
11150 
11149 
11150 
11140 
11179 
11188 
11190 
11200 
11210 
11220 
1125 

11240 
11250 
11260 
11270 
11280 
11290 
11500 
11:10 
11320 
1133 

11349 
11350 
11350 
11370 
11389 
11590 
11400 


DATA 
DATA 
рата 
рата 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 


REM 


DATA " 


BATA 


DATA ` 


рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
рата 
DATA 
рата 
вата 
рата 
рата 
рата 
рата 
рата 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


SPIEGELSCHRIFT FX-B@ 


"++ 
"+ 
" ЖҰ 
UI ++ 
"> 
"жж 
"+ 
"хи 
D ++ 
"ғұ 
"ж 
"++ 
"х. 
"жж 
" ET? 
"++ 
их» 
их 


SE 


ს... . 


+ * — ~ 


- 


"Әсе || АД" იე... р 9 


2 


##", 110,139, 
зач, 111,139, 
за, 112, 11, 
sen, 113, 11, 
sen, 114,139, 
zen, 115,139, 
aen, 116, 129, 
sen, 117,139, 
sen, 118, 139, 
з", 119, 139, 
зе", 120, 139, 
an, 121. 11, 
X#", 122, 139, 
XX" 8125, 139, 
aen, 124,159, 
же", 125,139, 
aen, 126,139, 
Sen, 127, 139, 


XX". 161,139, 
за", 162,139, 
XX", 163,139, 
aen, 164,139, 
#x",165,139, 
xx" 166,139. 

XX", 167,139, 
КЕСЕТІН 139, 
жж", 169, 139, 
##", 170,139, 
xx" 171,139, 
жи",172, 11, 
X#", 173,139, 
++", 174,139, 
XX", , 175, 139, 
xx". 176,139, 
**",177,129, 
XX", 178,139, 
aen, 179,139, 
sen, 189,139, 
за", 181,139, 
XX", 182, 129, 
aen, 183, 139, 
жж", 184, 139, 
за", 185,129, 
aen, 186, 139, 
aen, 187, 11, 
жж", 188,129, 
aan, 189, 139, 
жж",190,139, 
зе", 191,139, 
ann, 192,139, 
xx", 193,139, 
#*" 194,139, 
++", 195, 139, 
знаю", 195, 139, 
за", 197, 139, 
XX", 198, 139, 
zen, 199,139, 
zen, 200,139, 


9, 9, 30, 32, 9, 32, 9, 52, 9, 62, 
9, 28, 54, 9, 54, 9, 54, ©, 34, 28, 
0, 9, 56, 68, 0, 68, 9, 68, 0,127, 
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Indexmaker іш a program te make the minidigital 


cassettetapes (МОСК 5) easy accessible, a CHILDFROOF solution. 


-10- 


-11- 





The program consists of two parts; 


a, the part TAPECONTROL 
В. the part ІМПЕУМАКЕВ. 


The best way to use it is: 


have the program Indexmaker on an separate tape; 

REWind an unused МОСК and save the USER-program (8144-8184) at the 
start af that MDCR. See the Memocom-manual if you Фо по have th USER- 
program, 

load Indexmaker, LIST 241 ~ 244, note the appearing advise: 
perform the advise in the linenumbers 241 - 244: 

insert the tape with the USER-program, type REM: MER, 

and SAVE the program *TAFECONTROL’. 

Behind TAFECONTROL you save the programs you want 

an that tape. Only one screen of 25 lines is used, 

50 па more programs will appear in the Index. 

Load Indexmaker from the other tape and run it. 

The program rewinds the tape and reads every pragramtitle, 
but no more than the first 25 will be stored in the 

datalines by the DIDACOM DATASTATEMENTGENERATOR. 

If the program is ready the advise in the lines 

240 — 243 will appear. You perform the advise. 

Because of the fact you did already reserve enough space 

on the tape for TAPECONTROL, you can SAVE * TAFECONTROL’ 
immediate after USER, without disturbing the program folowing 
TAFECONTRAOL. 

Remove the ‘write-enable plug’ from the MDCR-cassette, 

ta make the system childproof. 

Press the RESET-button to see it all happening. 


When, later on, you save another program on this tape, that you want ta 


be placed in the index, you simply load and run INDEXMAKER, and save the new 
TAFECONTROL on the space of the former version. 


When useing a LOADER for machinelanguage and BASIC-combinations іп 


е.п. games for children, the last ones would be very gratefull, 
if you edit the datalines, which they should nat read, and convert 
them in spaces. Then give the loader the name of the game. 


Inna Broekman september 1985 
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КЕМ indexmaker Жоғ mdcr-tapecontrole by inna braekman 


11 REM avenbeek 98 2182 rz hillegom netherlands 

12 REM telephone 02520 - 29279 

20 MODE O:CLEAR 10000: РОКЕ #121,1:C6LLM ЯҒООО:КЕМ REW 

A0 PORE #75, #20:PRINT СНКФ 127): Аре" " 

40 FOR Ах=1 ТО 21:REñD ВХ ADS=ADS+CHRS (ВИ) NEXT AX 

DO ñDZ=FEEF (УАКРТЕ (В0Е)) TOR (PEEK (VARPTR(AD$)+1) SHL 8)+1 

50 Кфе""рТуа-фрхфа""ерРОКЕ 8131,1 

ao ЇЕ 1.22 THEN PRINT :FRINT "too many programs for this index 111" 6ОТО 240 

70 PRINT CHR$(12);:CALL M ADY 

100 FOR AZ=#BFE7 ТО #BF8S STEP -2:X%=X%+C0L%(-C6L76%)) МЕХТ АХ 

110 GOSUE 270 

120 IF Тӛжі-і) THEN ҚФ-Х% 

150 IF ХФ-К% AND ТҮ<>4-1) THEN GOTO 230 

140 ХХ -Х8 

149 X#*=5TF$(TZ):X$=LEFT$(X#,LEN(X#)—-2):IF Та 10 THEN X#=" "+X$ 

17ü X$=X$+XX$ 

180 ХХфе""рУдезо 

170 IF (ЕМ(Х%)>ХХ THEN X$=LEFT$(X#,XZ) 

195 READ I$ 

200 GOSUB 29056 

210 ТіТ%з1:60Т0 70 

220 IF R$="—-ob ject-USER" THEN CALLM #FGOO: REM REW:SKIFi:LOOK 

22 IF ЕФ: »"-об јесЕ-ЏБЕК" THEN CALLM #FO00:REM КЕМ: ПӘК 

250 PRINT CHRE#(12) 

240 PRINT :PRINT " Index is ready." 

241 PRINT :FRINT " Type < CLEAR 20000:EDIT1000-4000 >" 

282 PRINT : PRINT "Туре <BREAK?, <ВКЕАК >, МЕМ, POEERISS, 2, and ЗАМЕ: ТАРЕСОМТКО.Е: " 
243 PRINT sPRINT "Delete linenumbers between 2900 еп 2999 ," 

244 END і 

220 GOTO 220 

260 DATA SES, #05, #05 HES, 1,440.0, 811,881, #80, HZI, HOE, #25, СО, HCE, 2, ЕІ, 401, HCI 
„HFL, #С9 

270 ТЕ LEFTS(X$,1)="0" THEN X$="-basic -"+RIGHTS(X$,LEN(X#)-1):GOTQ 340 
280 IF LEFTS(X$,1)="1" THEN X$="—ob ject—"+RIGHT$(X$,LEN(X$)-1):GOTO 540 

290 IF LEFT$(X#,1)="2" THEN X$="-array ~—"+RIGHTS(X$,LEN(X$)-1):GOTO 240 
500 IF LEFT$(X$,1)="#" THEN X$="-assem —"+RIGHTS(X$,LEN(X$)-1):G0TO 340 
310 IF LEFT#(X#*,1)="F" THEN X$="-pascal—"+RIGHT#(X$,LEN(X$)-1):GOTO 340 
520 IF LEFT$(X$, 1)="X" THEN X$="-tekst —"+RIGHT$(X$,LEN(X$)—-1):BDTO 340 
550 IF ПЕҒТФ(Х%,і)-"%" THEN X$="-s.p.1.~"+RIGHTS(X#,LEN(X$)-1):GOTO 340 
540 RETURN 

1000 REM mdcr tapecontrole 

1010 CLEAR 1000: МОРЕ O:COLORT B О 8 0:Мї50 

1020 PRINT CHR#(12):CURSOR 10,16:РБІМТ СНЕЪ(1) " M DCR TAPECONTROL 
E "3 CHRS(1) 

1030 WAIT TIME 40: РКТМТ СНЕФ (127 

1040 PRINT CHRS (12) : RESTORE 

1080 FOR 1451 ТО 25:КЕАр F$:PRINT РЕЕМЕХТ IX 

1070 FORE %74,3:РПКЕ #75, #20 

1071 IIZ=234:FOR IX=#83C9 ТО #BFDS STEF 154 

1072  БОООХРЕЕКСТУ: ЇЕ 0003-4820 THEN 113-113-1 

1075 NEXT 17 

1080 FOR X4=23 TO IIX STEP -1 

1090 CURSOR 10,X%%:PRINT СНЕФ(1) 

1100 FOR ZZ=1 ТО 200 

1110 IF СЕТС 20 GOTO 1160 

1120 NEXT Z% 

1159 CURSOR 10,X%:PRINT СНЕФ (32 

1140 NEXT ХХ 

1150 GOTO 1080 


НЕ лат вз-эо ars 


1160 СМХ523-ХХ:БЕЗТОВЕ 
1170 ТЕ СМЕО THEN READ Ръ: МАЗ БОТП 1230 
1180 FOR Те TO CNE:READ F$ 


1190 IF ПЕРТФІР%, De" " THEN CURSOR 0, 1:РКІМТ СНЕФ (13): МЕМОСОМ does not ге 
cognize this program ! "sCHR@(1):WAIT TIME 200:8070 1070 


1200 ТЕ СМАЕХЕ THEN GOTO 1070 

1210 IF CNX?22 THEN GOTO 1240 

1220 NEXT IX 

1230 PRINT СНЕВ 12) CURSOR O,2:PRINT СНЕФ (1) р" МЕМОСОМ is searching for : "CHR 






5113); “ECHR (1) БРЕ". "СНЕФ (13 30010) 1250 
1240 PRINT СНЕЪ(12)  СНКВОВ 0, а: РЕТАТ СНЕЖ (1) 1" МЕМОСОМ skips over all programs. 
"SCHRS(1):GOTO 1340 


1250 IF Маг] THEN GOTO 1300 
5 IF ENZ222 THEN GOTO 1340 
FOR LOOPZ=0 TO СМХ-1 
САЕМ #FO00;REM DCRO:SKIFI 
NEXT LOOPS 
1500 IF MIDS(F$,4,1)="b" THEN LOAD 
1219 IF МІШФІР%,4,194>"Ь" THEN CURSOR 0, 25: САЕМ ЯҒООО:КЕМ LOOK 
1220 PRINT :РБІМТ "You are just about the start of the choosen program." 
1520 PRINT PRINT "Load accordingly the FILE-type,":PRINT іРКІМТ "Бу @.g. а mai 
пргодгат for textoracessing “:END 
1540 САМ ЯҒООО:КЕМ DCRO:SEIP9: SKIFF: ВЕТРУ 
1380 END 
2700 REM опе dataline contains fifty spaces 





2970 DATA i 
2980 DATA " გ 
2990 DATA " 
3000 DATA " გ 
5010 DATA " " 
3020 DATA " " 
S030 DATA " Е 
2040 DATA " Е 
2050 DATA " ა 
3060 DATA " " 
3070 DATA " й 
5080 DATA " ñ 
2090 DATA " й 
3100 DATA " М, 
5110 DATA " 4 
3120 DATA " Ы 
3150 DATA " | 
5140 DATA * | 
31530 DATA " " 
5150 DATA " 2 
3170 DATA " і 
5180 DATA " Ú 
2190 DATA " 5 
5200 DATA " u 
3210 DATA " 4 
заго DATA " 5 
3230 DATA " " 
4000 DATA " 4 


27054 Ge? #98 didacom datastatementoenerator ЯН 

29056 Хал=РЕЕК(#Ф124›+РЕЕК (#125) 12:56+5: Dën (SEZCHRE (#22) 

27028 FOR ХІХ=0 ТО Х5-4ЕМ(Х5) Х58:1584-" " МЕХТ ХІХ 

29051 XE=CHRE (422) +X%+XC=% | 
29042 FOR Х1%=0 ТО XZ+1 | 
27083 FOKE ХА? ASC (MIDS (XE, XIX, 13) 

29054 Хйл-ХАХЖ1Ї: NEXT XIX 

29047 RETURN 
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REM 


LRE BRARD RHEE RE OHS RB ЕНЕ 


Hed DEMS PBL 888 
ЗНИНННННННГНБ AHH REE THA ER ERS 


хы ЕЗ 


ж MENU+SELECTION # 
ЗІ 252222552 


МОРЕ @:FRINT СНЕФ:12) 

CGLORT 5 15 5 б:РОКЕ #75, 52 

FOKE #5900, #FF: VPOS=1 

CURSOR 20,21:PRINT "M E МО” 

CURSOR 20,20; PRINT “------- É 

CURSOR 16,14:PRINT ":1) Mode d'emploi” 

CURSOR 19,14:РВЇМТ "(2) Curseur" 

CURSOR 18,12:PRINT "(20 Aide au dessin" 

CURSOR 11,4:PRINT “POINTEZ VOTRE RUBRIQUE AVEC LE PDL" 
CURSOR 11,3:PRINT "CHOISISSEZ ЕМ FRESSANT LE BOUTON" 
CURSOR 19,10: РКІМТ "(43 Menu” 


IF 
5Р= 


(PEEK (HFD0@) ТАМО 850) 020. THEN ON VPOS GOTO 10, 599, 1093, 506 
СІРГІ (9) ТАМО #52) 712) 


IF 5РС»б THEN GOSUE 299 
GOTO 116 


REM 
REM 
REM 


233225255553 55 аха ХК 


ж S.F, POSITIONNEMENT CURSEUR ж 
ҮЗІГІ ІЗ 255542255555. 


OLD=VFOS: WAIT TIME 11 

IF SP=4 AND УР08<21 THEN МРОБ2УРО5-1 
IF 5Р-1 AND VPOS<>4 THEN VPDS=VPDS+1 
FOKE (#E9@6+ (OLD-1) #248) ,@ 

POKE (#B986+ (VPDS-1)#268) , #FF 
RETURN 


REM 
REM 
REM 


МАХА ЗА за 


ж Aide au dessin 3 
зання юю 


COLORG 9 1 12 3 

PRINT СНКФ (12): МОрЕ bA 

PRINT "+ ~Tracez avec le FDL" 

PRINT "# -Levez le crayon avec le bouton" 

PRINT "ж -Retour au menu:Sortir de l'ecran avec la trace" 
WAIT TIME 2: V=YMAX/2:H=XMAX/2 

FILL 9,0 ХМАХ,ҮМАХ 12 

FILL 2,2 ХМАХ-А,ҮМАХ-6 З 

A=(FDL(@) IAND #F01/15 


(A IAND 1)<>0 THEN УЕУ+1: IF У>ҮМАХ-7 THEN 19 
(А ТАМО 2)<>@ THEN H=H+1: IF H>XMAX-7 THEN 19 
(A IAND 43229 THEN V=V-1: IF V<3 THEN 10 
(A IAND 83529 THEN H=H-1:IF HA THEN 19 
(PEEK (#FD60)} IAND %503-9 THEN DOT Н,У 21 


WAIT TIME 2:60Т0 399 


REM 
REM 
REM 


ЖЕЕ ЕЕЕ 253 
* Mode D’emploi % 
XX#X#X#4XX%XX%X%X#X%X%X#XX#%X%+X 


PRINT CHRS(12) 

PRINT " INTERFACE GE CONVERSION DIGITAL/ANALOGIQUE" 

PRINT " Рана 

PRINT :PRINT :PRINT :PRINT " Principe :" 

PRINT ” ———————— і 

PRINT "L'interface D/A permet de connecter un manche de commande" 
PRINT "Type ‘contacteur? sur 1'опе des entrees analogiques du DAI" 
PRINT "Four ce faire il suffit de connecter l’interface entre le" - 
PRINT "manche et | ordinateur. ": РКІМТ :PRINT 

PRINT " Utilisation": PRINT " ----------- " 

PRINT "Pour savoir quel est le(s} сопёасё (5) еп#опсе (5) il suffit" 
PRINT “de lire la valeur sur le port correspondant par" 
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750 
760 
770 
780 
790 
вод 
810 
820 
830 
896 
897 
898 
900 
910 
920 
930 
940 
950 
950 
970 
980 
997 
998 
999 
10909 
1010 
1020 
1930 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1150 
1140 
1998 
1999 
2000 
2901 
2002 
2010 








PRINT "l'instruction FDL. La valeur qui est renvoye se traduit” 


| 880 PRINT "comme suit:" 

i 899 PRINT :PRINT :PRINT “PRESSEZ LE BOUTON POUR CONTINUER..." 

700 IF (PEEK (#FD00) IAND #359) =0 THEN WAIT TIME 2:6010 700 

3 718 PRINT :PRINT :PRINT "Les quatres bits de poids faible ne sont pas sig 
1 nificatifs," 

| 720 PRINT "Chaque bits de poid fort indique une direction." 

| 73@ PRINT "Soit pour les directions en partant du plus faible" 

740 PRINT :PRINT " # Haut":PRINT " я Droite":PRINT " ж Bas":PRINT " + Gau 


che":PRINT 


PRINT : PRINT "Plus pratiquement on aura:" 
PRINT "- lire le port avec" 


PRINT " PORT=(PDL (8) IAND #60) /16" 

PRINT "- PORT aura les valeurs suivantes pour chaque directions” 
PRINT " (en HEXAdecimal)":PRINT 

PRINT " 9 1 3": РЕТМТ 

PRINT " 8 2":PRINT 

PRINT " с 4 а" 

PRINT :PRINT " (ESSAYEZ LE PDL AVEC HAUT & BAS)" 


КЕМ жж HEHEHE 

КЕМ ж DEMO COULEUR + 

REM э ЕЕН + 

LIGN=#B3E4: COUL=5 

A=(PDL (0) ТАМО #60) /12 

IF (РЕЕК (#Ғред) IAND #30)<>@ THEN 10 

IF (A IAND 2)<>@ THEN COUL=(COUL+1) MOD Та: WAIT TIME 11 

IF (ñ IAND 8)<>0 THEN COUL=ABS(COUL-1):WAIT TIME 11 

IF (А IAND 1)<>@ AND LIGN<#BFEF THEN LIGN=LIGN+134: WAIT TIME 11 
IF (А IAND 4)<>@ AND LIGN>#B3ES THEN LIGN=LIGN-134:WAIT TIME 11 
РОКЕ LIGN, (#00 IOR COUL) 

WAIT TIME 1:GOTO 916 

REM женена 1 

КЕМ ж CURSEUR ж 

REM АНУ + 

WAIT TIME 17:MODE O:PRINT CHR$(12) 
COLORT 9 12 12 1 

POKE #75, #5F 

V=20:H=0 

IF (PEEK (#FD@0) IAND #30)<>0 THEN 19 
A=(PDL(@) IAND #20) /16 

IF (А IAND 1990 AND V<23 THEN V=V+1 
IF (A IAND 2)<>@ AND H<59 THEN Н-Н-1 
IF (А ТАМр 4)<>@ AND V>@ THEN узу-1 
IF (А IAND 8)<>@ AND H>@ THEN Н-Н-1 
CURSOR H,V 

A=GETC:WAIT TIME 1 

IF А<29 AND Н<59 THEN PRINT CHRS (A) ; :H=H+1 C 
GOTO 1950 

REM 

REM 

REM хэхэхэ 4 
REM * F IN + 

КЕМ #4484244 


REM акаже халан *=wa..... –_ «ааа. С. DUFOUR 








ЕШ тласък: 85-30 arr 
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есе ШІСІ: вз-эо 


Lineaire Regressie 


Inleiding. 


Lineaire regressie is een rekenme- 
thode uit de statistiek, waarmee men 
de rechte lijn bepaalt, die het best 
"past" bij een aantal punten in een 
grafiek, Als je deze methode wilt 
gebruiken, moet je van te voren wel 
weten, denken af hopen dat er tussen 
de variabelen die in de grafiek zijn 
uitgezet een lineair verband is. 
Zo'n verband komt vaak voor. 


Een paar voorbeelden: 


1.Bij het maken van een niet al te 
lange wandeling is er een lineair 
verband tussen de looptijd en de 
afgelegde afstand: in twee maal zo 
veel tijd kom je twee maal zo ver. 


2.Іп de natuurkunde is het verband 
tussen de elektrische spanning en 
de stroomsterkte bij een weerstand 
lineair, 


5.1Іп de scheikunde bestaat er binnen 
zekere grenzen vaak een lineair 
verband tussen reactiesnelheid en 
de concentratie van de reagerende 
stoffen. 


4.Їп de economie: gedurende een niet 
te lange periode kan de consumptie 
een lineair verband hebben met de 
tijd. 


S.Wie spaarzaam en regelmatig leeft, 
merkt dat zijn spaargeld lineair 
met de tijd toeneemt. 


Men bepaalt een rechte lijn, dat wil 
het volgende zeggen: een rechte lijn 
wordt gegeven door het functievoor- 
schrift у = ax + Б, waarin a de 
richtings-coefficient (rico) is еп 
b het snijpunt met de у-ав, Met 
lineaire regressie kun je voor een 
bepaalde situatie a en b berekenen 
van de lijn waar de gegeven punten 
gemiddeld het dichtst bij liggen. 
Dit is niet de plaats om diep op de 
theorie in te gaan, toch wil ik er 
iets over zeggen. 














pnt 























Het principe. 


In onderstaande figuur is een aantal 
punten in een diagram getekend plus 
een willekeurige rechte lijn. 





Voor elk punt kun je de verticale 
afstand d tot aan de lijn bepalen. 
De best passende lijn loopt nu zo, 
dat de som van de kwadraten van 81 
deze afstanden minimaal is ( kleiner 
dan voor elke andere lijn ). 


Het mut. 


Wat is nu het nut van het berekenen 
van zo'n lijn > Welnu, dat kan ver- 
schillend zijn: in de natuur- en 
scheikunde hebben de rico en het 
snijpunt met de y-as vaak een zekere 
betekenis. Zet men elektrische span- 
ning verticaal uit tegen horizontaal 
de stroomsterkte, dan is de best 
passende lijn er een die door de 
oorsprong gaat (tenzij je meetfouten 
maakte, hetgeen je dan gelijk weet) 
en waarvan de rico de weerstand in 
ohm voorstelt, Ook kun je de methode 
gebruiken om een toekomstverwachting 
uit te spreken ( weet je a en b, dan 
kun je bij elke x de bijbehorende y 
uitrekenen). Stel dat de persoon 
uit het vijfde voorbeeld in het be- 
zit is van een elektronisch apparaat 
van een zeer bekend Amerikaans merk, 
dat met computer de eerste drie let- 
ters gemeenschappelijk heeft (een 
van de weinige overeenkomsten). Stel 
dat deze persoon er achter komt, dat 
programmeren meer is dan РОКЕ-п. Dan 
kan hij met lineaire regressie een 
nauwkeurige schatting maken wanneer 
hij genoeg geld heeft om een DAI te 
kopen. 














Correlatie. 


Als je het verband tussen twee vari- 
abelen gaat onderzoeken weet je soms 
vooraf niet of er wel sprake van een 
lineair verband is. Stel je hebt 
onderzoek verricht naar het verband 
tussen twee variabelen P еп 0 waar- 
voor geldt: Ü hangt van P af, zodat 
een verandering van P er de oorzaak 
van is dat Ü verandert (P is dan de 
onafhankelijk variabele en Q is de 
afhankelijk variabele; je hoort dan 
P horizontaal en Ü verticaal uit te 
zetten), Іп de regressietheorie is 
de zogenaamde correlatiecoefficient 
r то gedefinieerd, dat hij een maat 
is voor hoe goed (of hoe slecht) de 
berekende lijn bij de punten past, 
Deze r ligt altijd tussen -1 en 41, 
Als r=@, dan is er helemaal geen 
verband tussen P en Q, dus cok geen 
lineair verband. Als r een getal is, 
dat in de buurt van @ ligt, dan 
hangt Q wel van P af, maar ook van 
andere factoren. Of 0 hangt wel uit- 
sluitend van P af, maar het verband 
is niet lineair. Welke van deze twee 
mogelijkheden het is, kun je zelf in 
de grafiek zien. Als r=-1 of r=+1 
dan is het zo dat Q alleen maar van 
P afhangt en het verband is volmaakt 
lineair (er is een lijn waar alle 
punten ор liggen). Tevens bevatten 
de waarden уап Р еп Q dan geen meet- 
fouten. Overigens: r is negatief als 
de rico van de lijn dat is, 


Een truc. 


Soms weet je vooraf wel zeker dat je 
met een lineair verband te maken 
hebt, еп ook dat de gezochte lijn 
door de oorsprong van het assen- 
stelsel hoort te gaan, bijvoorbeeld 
bij het verband tussen spanning en 
stroomsterkte. Als je in zo’n geval 
de parameters van de best passende 
lijn hebt berekend en deze blijkt 
niet door de oorsprong te gaan, wat 
doe je dan? Dat ligt aan de oorzaak, 
en die kan verschillend zijn: zit er 
in de meetwaarden een systematische 
fout, dan rest je niets anders dan 
die fout op te sporen en nogmaals te 
meten, maar dan goed. Dok kan de 
oorzaak liggen in een (te) klein 
aantal punten. Daardoor is er een 
statistische onzekerheid dat de be- 
rekende lijn ook echt de beste is. 
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In dat geval is er een truc om een 
nieuwe lijn te vinden die wel aan de 
eis b=@ voldoet. Een "smerige" truc, 
dat wel: voeg aan je punten een zeer 
groot aantal malen de oorsprong toe. 
Dit heeft een duidelijk nadeel : 
vergroting van het aantal punten 
betekent in principe vergroting van 
de zekerheid dat de gevonden lijn 
het verband juist weergeeft, maar in 
dit geval is dat natuurlijk slechts 
een schijnzekerheid. Dit betekent 
dat door deze truc de correlatie- 
coefficient kunstmatig dichter naar 
plus of min 1 wordt gebracht. Kun je 
met vrij grote zekerheid stellen dat 
twee variabelen lineair samenhangen 
als r>@,90@, па toepassing van de 
truc zul je een waarde boven 0.99 
moeten vinden, anders was de truc 
zeker niet verantwoord. 


Een Programma. 

Ik hoop dat het bovenstaande u in 
staat stelt om te beoordelen of 
lineaire regressie een rekentechniek 
is waar u misschien eens nuttig 
gebruik van kunt maken. Binnenkort 
is een programma beschikbaar waarmee 
u regressielijnen die naar keuze wel 
of niet door de oorsprong gaan kunt 
berekenen, en dat tevens lijn en 
punten grafisch weergeeft, voor een 
gemakkelijke interpretatie van de 
resultaten. 


Aad de Bruijn 
Heerenlaan 14 
NL-3218 VL Heenvliet. 
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10 REM NEW-YORK: AUTHEUR:Sebastien DUBOURG 1983 


100 MODE O:CLEAR 1000:COLORG 9 14 3 O:MODE 5 
110 Y=YMAX ` 
120 DRAW 0,Ү XMAX,Y 0 


130 РА5-0.2%(ҮМАХ-Ү-1.0)%2.0 

140 Y=Y-PAS 

150 ТЕ Y>30.0 GOTO 120 

160 RESTORE:REM DESSIN DES IMMEUBLES 
170 FOR I=1.0 TO 17.0 


180 READ 
190 FILL 
200 NEXT 
250 DATA 
260 DATA 
270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 


320 DATA 
330 DATA 


Х1,Ү1,Х2,Ү2 
X1,Y1 X2,Y2 0 


0,20,335,40 
40,40,60,170,45,170,55,180,49,180,51,190 
0,40,50,120 
80,40,130,135,85,135,125,145,95,145,115,150 
70,40,100,100 

130,40,145,55,185,40,205,110 

145,40,185,170 

205, 40,275,60, 220,60, 255, 70, 230, 70,250,151 
275,40,335,65,300,65,335,75 


3⁄0 REM DESSIN DE LA LUNE 
350 FOR 1-0:0 TO 2:0*PL STEP РІ/35.0 


360 DRAW 
370 NEXT 


300,200 300.5+10*COS(1),200.5+10*SIN(I) 14 


380 КЕМ LES ENTREPOTS 
390 FOR 1=1.0 ТО 16.0 


400 READ Х1,Ү1,Х2,Ү2 

410 DRAW X1,Y1 X2,Y2 9 

420 NEXT 

450 DATA 175,25,180, 25,180, 25,180, 35,190,35,190,25 
460 DATA 180,35,190,35,130, 20, 130,25, 200, 20, 200,25 
470 DATA 130,25,145,25,190, 25, 200,25 

480 REM ENTREPOT 2 

490 DATA 245,20,245,40, 245,40, 260, 40, 260, 40, 260,35 
500 DATA 260,35,275,35,275,35,275,25,295,25,315,25 
510 DATA 315,25,315,32,315,32,335,32 

520 REM TOITS 

530 N=10.0:MAX=30.0:X=145.0:Y=24.0:GOSUB 600 

540 N=20.0:MAX=20.0:X=275.0:Y=22.0:GOSUB 600 

550 GOTO 700 | 


600 FOR І-0.0 ТО МАХ 
610 A=A+SGN(N/2.0-(I MOD (N+1.0))) 
620 DOT X+I,Y+A 9 


630 NEXT 


640 RETURN | 


RHA әш во- зо | | | 











700 
710 
715 
720 
730 
740 
750 
760 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
930 
940 
950 
960 
1000 


REM LUMIERES A REFLETS 
у=24.0:С=14.0 

FOR Х=20.0 TO 120.0 STEP 20.0 
GOSUB 800:NEXT 

X=215.0:GOSUB 800 
X=230.0:C=3.0:GOSUB 800 
X=185.0:Y=35.0:GOSUB 800 
GOTO 900 

REM LUMIERE 

DOT X,Y C 

DOT X-1,Y C:DOT X+1,Y C 

DOT Х,Ү-1 C:DOT Х,Ү-1 С 

REM REFLETS 

FOR J=15.0 TO 0.0 STEP -1.0 
A=A+SGN(1.5-J MOD 4.0) 

DOT X+A,J С 

NEXT 

RETURN 

REM INIT LUMIERES 
FLAG=0.0:FOR T=1.0 TO 1100.0 
GOTO 1000 

REM 

FOR I=1.0 TO 5.0 

FLAG=1.0 

A=RND(11.0)+1.0:0N А GOSUB 3000,3500,4000, 4500, 5000, 5500, 6000 , 6500 , 7000, 


7500, 7600 


1010 
1020 


NEXT 
A=RND(11.0)+1.0:FLAG=0.0:0N А GOSUB 3000, 3500, 4000, 4500, 5000, 5500, 6000, 6 


500, 7000, 7500 , 7600 


1030 
3000 
3010 
3020 
3030 
3035 
3040 
. 3500 
3510 
3520 
3530 
3540 
3600 
3610 
4000 
4010 
4020 
4030 
4040 
4050 
4500 
4510 
4520 
4530 
4540 
4550 
4600 
4610 


GOTO 950 

С-14.0:1Е FLAG=1.0 THEN C=0.0:FLAG=0.0 
X1=0.0:X2=47.0 

Ү1-41.0:Ү2-120.0 

GOSUB 8000 

GOSUB 8500 

RETURN 

REM 2 

C=6.0:IF FLAG=1.0 THEN C=0.0:FLAG=0.0 
Y=RND(128.0)+41.0 

IF Y>120.0 THEN X=RND(18.0)+41.0:GOTO 3600 
X=RND(8.0)+51.0 

DOT X,Y C 

RETURN 

REM 3 

С-13.0:1Е FLAG=1.0 THEN C=0.0:FLAG=0.0 
Y=RND(59.0)+40.0 

X=RND(8.0)+71.0 

DOT X,Y C 

RETURN 

REM 4 

C=8,0:1F FLAG=1.0 THEN C=0.0:FLAG=0.0 
Y=RND(107.0)+41.0 

Х1-81.0:Х2-128.0 

IF Ү>145.0 THEN X1=96.0:X2=113.0:GOTO 4600 
IF Y>135.0 THEN Х1-86.0:Х2-123.0 

GOSUB 9000 

КЕТПЕУ 
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REM 5 

С-3.0:1Е FLAG=1.0 THEN C=0.0:FLAG=0.0 
X1=110.0:X2=142.0:Y1=31.0:Y2=54.0 
GOSUB 8000:GOSUB 8500 

RETURN 

REM 6 

C=15.0:IF FLAG=1.0 THEN C=0.0:FLAG=0.0 
Ү1-41.0:Ү2-169.0:Х1-146.0:Х2-182.0 
GOSUB 8000:GOSUB 8500 

RETURN 

REM 7 

С-7.0:ТЕ FLAG=1.0 THEN C=0.0:FLAG=0.0 
Y=RND(69.0)+40.0 
X1=186.0:X2=203.0:GOSUB 9000 

RETURN 

REM 8 

С-10.0:ТЕ FLAG=1.0 THEN C=0.0:FLAG=0.0 
Y=RND(109.0)+41.0 

IF Y>70.0 THEN X=RND(18.0)+231.0:GOTO 6600 
IF Y>60.0 THEN X=RND(33.0)+221.0:GOTO 6600 
X=RND(68.0)+206.0 

DOT X,Y C 

RETURN 

REM 9 

C=11.0:IF FLAG=1.0 THEN C=0.0:FLAG=0.0 
Y1=41.0:¥2=74.0:GOSUB 8000 
Х1-276.0:Х2-333.0 

IF Ү>63.0 THEN X1=301.0:X2=333.0 
GOSUB 8500 

RETURN 

REM 10 

C=INT(RND(15.0))+1.0 

IF FLAG=1.0 THEN C=0.0:FLAG=0.0 
X=RND( 130.0) 

Y=RND(14.0)+26.0 

DOT X,Y C 

RETURN 

C=INT(RND(15.0))+1.0 

IF FLAG=1.0 THEN C=0.0:FLAG=0.0 
X=RND(43.0)+201.0 

Y=RND(19.0)+26.0 

DOT X,Y C 

RETURN 

REM 2 X 3 
Y=INT(RND((Y2-Y1)/2.0))*2.O+Y1 
Y=INT(Y) 

RETURN 

X=INT(RND((X2-X1)/3.0) )*3.0+X1 
X=INT(X) 

FILL Х,Ү-1 X+2,Y C 

RETURN 

REM 2X1 

X=INT( INT(RND((X2-X1)/2.0))*2.0+X1) 
DRAW X,Y X+1,Y C 

RETURN 
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On Error Goto 














SPL V1.1 PAGE 1 ON ERROR GOTO V2.0 

1 TITL "ОМ ERROR GOTO У2,0! 

2 ;AUTHEUR: LOOIJE DAInamic 83-16 

3 ;REV. :Sebastien DUBOURG 27/8/1983 

4 sto activate 

5 ;*UT <RETURN> 

6 ;>V5 C6FD-300 <CURSOR LEFT> 

7 ; >В 

8 ; РОКЕ 6,LINENUMBER ТАМ) #FF:POKE 7,LINENUMBER SHR 8 
9 ; 

10 ‚To desactivate 

11 ;POKE 6,0:POKE 7,0 

12 ;Explanations:see DAlnamic 83-15 8 83-16:Looi je 
13 JD ttn ee 
14 PUT "н" 

15 PUT "р" 

16 ; 

17 ERRLIN EQU 6H 

18 s 

19 ORG 300H 

20 PUSH PSW 

21 : 

22 LHLD ERRLIN sIs ON ERROR GOTO 
23 MOV A,H ;activate 7 

24 ORA L 

25 JZ OUT ;If no exit 

26 ; . 

27 LXI H OAH Offset to find 
28 DAD SP ‚original caller 
29 : 

30 МОУ А,М (15 it an error message 
31 CPI 53H ;being printed ? 
32 JNZ OUT 3) 

33 INX H 5) 

34 MOV A,M ;)If no exit 

35 CPI ODAH 3) 

36 JNZ OUT 

37 INX H 

38 MOV A,M 

39 CPI 40H 

40 JZ ONERR 

41 5 

42 OUT POP PSW sRestore CPU registers 
43 ЈМР OC6FDH ` ;& cont the RST 4 
44 H 

45 ONERR PUSH B 

46 LHLD ERRLIN 

47 CALL OCAF6H ;FIND this line in BASIC 
48 JNC UNDEFL 

49 4 

50 MOV B,H ;BC=START LINE 

51 MOV C,L 

52 LXI H 100H 

53 MVI A 15H ;CLEAR GOS/NEXT 
54 LOOP MVI M OH 

55 INX H 

56 DCR A 

57 17. Т.ООР 

58 : 
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NO о ~ Дубл Ç не 


DI 

STA ізін soutput to screen 

LDA 40H 

ANI ЗЕН 

5ТА 40H 

STA OFDO6H 

ЕТ 

POP PSW 

STA NMBR 

LXI SP OF900H 

JMP 0C892H 
UNDEFL LXI H OH 

SHLD ERRLIN 

MVI A 4H 

JMP OD9F5H 
NMBR DS 1H 

END 

SPL V1.1 PAGE 1 

TITL "ОТ LOADER‘ 
ааа К ЖКК Азоо ROR аю IR КК ЖК ЖОК ЖЛ 
;* UT LOADER * 
;* FUNCTION * 
;* "წ.II" ж 
;* -LOAD THE FIRST UT FILES ON TAPE * 
:% IN A BASIC PGM USE CALLM#300 ж 
Ни COPYRIGHT:* 
үт SEBASTIEN DUBOURG & DAINAMIC janv 1982 * 
ааа ааа аа ЈЕ МЕЗЕ АЕ 
CURRNT EQU 256D 
RODEN EQU 718D 
RBKL EQU 721D 
RCLO EQU 724D 
ERRLD EQU 53928D 
CRLF EQU 56670D 
РОРЕЕТ EQU 49485D 
ENTRY ORG 768D 

PUSH PSW ;SAVE 

PUSH B 

PUSH D 

PUSH H 

LXI H oD 

SHLD CURRNT 

LXI B 12799D ;NO NAME T1 

CALL ROPEN ;MOTOR 

LXI H “ТЕМР ;BGN SAVE ARFA 

LXI D TEMP+2D 

CALL RBKL ;LOAD 

LXI D 45056D 

LHLD TEMP 

CC RBKL ; ТЕ NO ERROR 

CALL RCLO ;STOP MOTOR 

JNC ERRLD s ERROR 

CALL CRLF 

JMP POPRET 
TEMP DW OD 

DW OD 

END ДЕ ОР Р Р А 
































Les heureux possesseurs d'un 
Dai agrémenté d'un systéme de 
: disquettes Ken-Dos doivent absolu- 
ment avoir cet utilitaire dans leur Бойе 


е à outils. Еп effet, le programme Кеп- 


з Zapper liste en clair les attributs des 


- fichiers disque, leur localisation en pis- 


_ tes et secteurs, et même le code де ver- 
2 rouillage, s’il y en a un. Pratique, pour 
+ les étourdis, mais а ne pas laisser їга1- 

` ner entre toutes les mains ! 


=- Pour fonctionner correctement, се 
programme ne doit être lancé qu'aprës 

22 s'être assuré que le tampon де DIRec- 
3 tory se trouve bien à sa place habituelle 
en mémoire. Pour plus de sûreté, faire 


2) Ken-Zapper 


Programme pour Dai et Ken-Dos 
: Auteur Alain Mariatte 
Copyright LIST et l'auteur 











DAI 


г. 


TOUT SAVOIR SUR LES FICHIERS 


“BUF” avant toute chose. Ensuite, 
lancer (RUN) Ken-Zapper. Il demande 
d’appeler le DIRectory désiré, puis de 
le relancer par RUN 100. C'est tout. 
Le programme fait le reste. 

Comme j'étais pressé, quand je Га! 
écrit, je ne me suis pas trop embarrassé 
de finasseries. C'est ainsi que le 
numéro du fichier testé (ligne 180) 
n'est juste que pour le premier DIRec- 
tory, et que le STATUS n'est décodé 
en clair que pour certains états (lignes 
260 à 280). Vous pouvez ajouter ce qui 
manque. 


Outre le code de protection (pour les 
étourdis qui bloquent un fichier, puis 


19 MODE @:COLORT 8 Ø 0 Q:FR1NT СНК%(122; СНКЕ (15) 


20 PRINT " KEN z 
` 22 PRINT " 
; 48 PRINT 

50 PRINT :PRINT - 


а F P E к" 


##4###49##M##M#%14)4MM #4 M # # M # # # у ни" 


д PRINT "CHARGER LE ZAPPER. APPELER LE BLOCK DE ЮЇБЕСТОКҮ" 
78 PRINT "DESIRE (ex: DIF2) PUIS «КОМ 100>. RECOMMENCER AUTANT" 


88 CURSOR @,1:STOP 

100 GOSUB 750 

110 GOSUB 150 

128 END 

158 REM DECODE 1 SECTOR DIR 

140 REM 

150 FOR I=#AFS@ ТО #8350 STEP 52 


150 IF PEEK (1+26) =@ THEN КЕТИКМ: КЕМ SECTOR=@ :FICHIER NON CREE 


178 FN=PEEK (1) 
188 PRINT :PRINT “FILE NUMBER 
190 Р=1 

208 Р=Р+1:1=РЕЕК‹Р) :F=P+1 


"3 d'hl. SH 


: 219 Мъж“ :ЕОК КЕР ТО РЧ--1:МмЕ-М54СННЖ (PEEK (K) ) МЕХТ 


220 PRINT "FILE NAME 
228 P=1+16:ST=PEEK (F) 
240 РКІМТ "STATUS 


Ы š 
258 IF ST<>@ AND ST<>1 AND ST<>#1@ THEN PRINT “#" sHEXS(ST):GOTO 294:5ЕМ #28 DN 


а ASS. 


2 “SNS 


ча 


260 IF ST=@ THEN PRINT “OFENED":GOTO 290 
278 IF ST=i THEN PRINT “LOCKED":GOTO 290 
280 IF ST=#1@ THEN FRINT "DELETED":GOTO 290 


298 Р<1+17: T=PEEK (Ei 
зад PRINT "FILE ТҮРЕ 


... 
Ы H 


510 IF Тед THEN PRINT "BASIC":GUTO 408 

520 IF T=1 THEN PRINT "BINAIRE":GOTO 400 

330 IF T=2 THEN PRINT "ЕРТ ARRAY":GOTO 400 

540 IF T=3 THEN PRINT “SRC DNA «ог new SPL зошигсе:":6070 400 
550 ТЕ T=#12 THEN PRINT "INTEGER ARRAY": БОТО 400 

368 IF T=#22 THEN PRINT "ALPHANUM.ARRAY":GOTO 400 

378 IF T=#F6 THEN PRINT "DBS «ог SFL source >": ОТО 488 

380 IF T=#F4 THEN PRINT "КМО «ог PASCAL source>":GOTO 400 





ЕЕ пала с 85-30 
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Lu dans 1.1.5.Т. 





ІІІ 





590 PRINT 

408 IF T IAND 2=2 OR T IAND #12=#12 ОК Т IAND #22=#22 THEN 450 
412 Р=1+18: 60506 740 

428 PRINT "START ADDRESS : #"3;HEX# (AD) 

450 Р=1+20: 60506 740 


oublient le mot de passe ensuite !), le 
programme donne les renseignements 
les plus importants concernant les 
fichiers : l'adresse de début d’implan- 


448 PRINT "FILE LENGTH : #" НЕХ% (AD) 

450 P=1+22:G0SUB 740 tation, la longueur, l'adresse d’exécu- 
468 IF T=@ THEN PRINT "LENGTH OF TEXTBUFFER : 8"1НЕХЖ (AD) М . 9 . : 
478 IF T=1 AND AD=@ THEN PRINT "МО EXECUTION ADDRESS" tion (si c'est un programme binaire), 
ава IF T=1 AND AD<?@ THEN PRINT “EXECUTION ADDRESS : #"";НЕХЖ (AD) ou la longueur du tampon texte (si 
498 P=1+24:LO=PEEK (Р) :P=I+25:HI=PEEK (F) М $ y d 
500 IF LD+HI=@ THEN 550 c'est du Basic). Ceci permettra de 
SE récupérer un fichier accidenté et de le 
52 FRINT "LOCK CODE OF FILE :“ y со 22% 

53 Р=1+28: BL=PEEK (Р) : Р=1+29: ВНЕРЕЕК (Р) : GOSUB 820 replacer oü il faut. 

540 PRINT "CREATED sz "s JIS+MMS+AAS 


550 F=1+30: BL=PEEK (P) : P=1+31: BH=PEEK (P) : BÜSUB ага 


268 PRINT “UPDATED t "3 JIS+MME+AAS a COLLECTION бөбегі 2 
570 P=1+26: SE=PEEK (Р) 
588 PRINT “NUMBER OF SECTORS s"; 5E 


598 STCOUNT=#AD9@+1: EFAM=#AF 4F : С-0: TTR=D: AL=O: TR=O 
ода PRINT "LOCATION ON DISK :“; 

вій FOR J=STCOUNT ТО EFAM:C=C+1:NF=PEEK (J) 

628 IF NF<>FN THEN 668 

630 TR=C/5:SEC=(C MOD S)+1:IF TR<10 THEN AL=1 





640 IF TTR<>TR THEN PRINT : PRINT "track :";ТК;“ sector (s) "Ч БРС (АС) ; " 
; : TTRETR 
65@ PRINT SEC;" - "5 
668 AL=O0:NEXT: ТЕ TR=@ THEN PRINT ">>>ACTUALLY KILLED<<<" 
670 PRINT 
ева G=GETC 
698 IF G=ASC("S") THEN RETURN 
7га ТЕ G=@ ТНЕМ 730 
718 G=GETC: IF G=@ THEN 718 
720 IF G=#20 THEN 730@:GOTO 690 
758 PRINT :МЕХТ I 
748 L=PEEK (C) : H=PEEK (P +1) : AD=L+2546#H: RETURN 
758 REM FENETRE DE SCROLLING 
762 REM 
770! POKE %8А,%09:РОКЕ #9B,#BF 
780 POKE Я8С,ФЕ5:РОКЕ #8D, #53 
790 POKE #84 ,+05: РОКЕ #85, #83 KEN ZAPPER 
800 POKE #BE,#DS:POKE #6Е,#85 ЕТ VAFFAIRE DES ЙГ | 
810 RETURN 
820 REM DECODAGE DE LA DATE FICHIERS: SECRETS — 
вза REM 
840 BJ=BL IAND 31:REM 5 BITS Р 
859 вм=вн IAND 15:КЕМ 4 BITS LOW NIBBLE 
вод AA=BH IAND 242: КЕМ BH HIGH NIBBLE 
870 AL=AA SHR 4:REM LOW PART QF YEAR ` 
ваа AT=BL IAND 192:REM BITS 7&8 Mais, pour récupérer quoi que ce 
890 IF АТ-0 THEN BA=8@+AL:REM 80-95 . . D ` h ! 
ода IF AT=64 THEN BA=96+AL:REM 96-99 soit, encore faut-il savoir ou сһегс ег! 
918 IF AT=128 THEN BA=AL:REM 00-15 Rassurez-vous, Ken-Zapper veille et 
920 IF AT=192 THEN BA=16+AL:REM 16-31 + 1 5 > 
958 | BBJ#=STR$ (BJ) : BBM$=STR$ (BM) : BBAS=STRS (ВА) vous aide : les derniers renseignements 
940 BJ$=MIDS (BBJ$,1,1):1F BJ>9 THEN 803-М103 (BBJS,1,2) fournis concernent le nombre de sec- 
950 ВМ%-МІП%(ВВМ%,1,1):ІҒ BM29 THEN ВМ%-МІр%(ВВМ%,1,2) age l fi hi 1 1 
960  БА%-МІр%(ББА%,1,1):1Ғ 8029 THEN BA$=MID#(BBAf,1,2) teurs utilisés par етіс пет, et leur loca- 
972 31%="@"+В2%:1Р ВЈ>=10 THEN 1418-8345 lisation, exprimée en pistes et secteurs. 
980 MM#="Q@"+BM#; IF ВМ>-10 THEN MM$=BH$ а! 
990 AAS="O"+BAS: IF ВА>=1@ THEN AAS=BAS Au passage, cet utilitaire montre 
1000 RETURN immédiatement les fichiers dont les 
secteurs sont disjoints, par suite de 
Хн nombreuses réécritures sur le disque. 
7, 
Exemple d'utilisation de Ken-Zapper Vous saurez donc quand il est néces- 
FILE NUMBER : 2 | saire de COMPACter სი disque, pour 
FILE NAME : DNA remettre tout cela en ordre. 
STATUS e #28 : : 
FILE TYPE : BINAIRE Pour се qui est de la technique de 
START ADDRESS `: #1100 programmation, le programme se con- 
FILE LENGTH : #1F 00 tente d’exploiter ce que dit le mode 
па ON ARETE SS Een d'emploi du Ken-Dos. П décode les 32 
UPDATED : 190984 octets de DIRectory alloués à chaque 


NUMBER OF SECTORS 8 fichier, à partir de l'adresse AF50H, 


LOCATION ON DISK = 





et la File Allocation Map (a partir de 


ege : > 55-226 (22 | 7 = 5 5 2 ADSOH). Il exploite aussi се que le 
: : mode d'emploi ne dit pas ! Pour la 
curiosité, regardez donc dans la liste 
See ფეხად : EEN HELLO comment le LOCK CODE est consti- 
STATUS : #2 tué (lignes 490 a 520), et comment la 
FILE TYPE : BASIC DATE est composée (lignes 820 à 990). 
START ADDRESS : #3EC Pas évident, n’est-ce pas ? 
FILE LENGTH 2: #1C Au fait, savez-vous que vers l'an 
LENBTH OF TEXTBUFFER ee 2035, les dates inscrites sur les fichiers 
шоо қ ere seront fausses 2 Dépëchez-vous d'uti- 
NUMBER OF SECTORS : 1 liser votre Ken-Dos ! 
ISK : | 
„ა... отог SA а Alain MARIATTE 


ess АЕ татък. 88-50 


